﻿Public Class FeuerkrafttabellePanzer120
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MinimaleReichweite = 1 And E.MaximaleReichweite = 1 Then
            If E.Bewegungsart.ToUpper = MovementSorts.Fuß.ToString.ToUpper Then
                Return 100
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Mech.ToString.ToUpper Then
                Return 100
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Motorreifen.ToString.ToUpper Then
                Return 100
            Else
                Return 120
            End If
        Else
            Return 90
        End If
    End Function
End Class
Public Class FeuerkrafttabellePanzer140
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MinimaleReichweite = 1 And E.MaximaleReichweite = 1 Then
            If E.Bewegungsart.ToUpper = MovementSorts.Fuß.ToString.ToUpper Then
                Return 100
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Mech.ToString.ToUpper Then
                Return 100
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Motorreifen.ToString.ToUpper Then
                Return 100
            Else
                Return 140
            End If
        Else
            Return 90
        End If
    End Function
End Class
Public Class FeuerkrafttabellePanzer150
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MinimaleReichweite = 1 And E.MaximaleReichweite = 1 Then
            If E.Bewegungsart.ToUpper = MovementSorts.Fuß.ToString.ToUpper Then
                Return 100
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Mech.ToString.ToUpper Then
                Return 100
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Motorreifen.ToString.ToUpper Then
                Return 100
            Else
                Return 150
            End If
        Else
            Return 90
        End If
    End Function
End Class
Public Class FeuerkrafttabellePanzer170
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MinimaleReichweite = 1 And E.MaximaleReichweite = 1 Then
            If E.Bewegungsart.ToUpper = MovementSorts.Fuß.ToString.ToUpper Then
                Return 100
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Mech.ToString.ToUpper Then
                Return 100
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Motorreifen.ToString.ToUpper Then
                Return 100
            Else
                Return 170
            End If
        Else
            Return 90
        End If
    End Function
End Class
Public Class FeuerkrafttabellePanzer190
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MinimaleReichweite = 1 And E.MaximaleReichweite = 1 Then
            If E.Bewegungsart.ToUpper = MovementSorts.Fuß.ToString.ToUpper Then
                Return 100
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Mech.ToString.ToUpper Then
                Return 100
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Motorreifen.ToString.ToUpper Then
                Return 100
            Else
                Return 190
            End If
        Else
            Return 90
        End If
    End Function
End Class
Public Class FeuerkrafttabellePanzer120OhneSchwäche
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MinimaleReichweite = 1 And E.MaximaleReichweite = 1 Then
            If E.Bewegungsart.ToUpper = MovementSorts.Ketten.ToString.ToUpper Then
                Return 120
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Reifen.ToString.ToUpper Then
                Return 120
            Else
                Return 100
            End If
        Else
            Return 100
        End If
    End Function
End Class
Public Class FeuerkrafttabellePanzer110OhneSchwäche
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MinimaleReichweite = 1 And E.MaximaleReichweite = 1 Then
            If E.Bewegungsart.ToUpper = MovementSorts.Ketten.ToString.ToUpper Then
                Return 110
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Reifen.ToString.ToUpper Then
                Return 110
            Else
                Return 100
            End If
        Else
            Return 100
        End If
    End Function
End Class
Public Class FeuerkrafttabellePanzer140OhneSchwäche
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MinimaleReichweite = 1 And E.MaximaleReichweite = 1 Then
            If E.Bewegungsart.ToUpper = MovementSorts.Ketten.ToString.ToUpper Then
                Return 140
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Reifen.ToString.ToUpper Then
                Return 140
            Else
                Return 100
            End If
        Else
            Return 100
        End If
    End Function
End Class